perm filename DPTST.F4[MSS,LCS] blob sn#069265 filedate 1974-03-19 generic text, type T, neo UTF8
00100		DIMENSION I(1000)
00200		CALL DPYSET(1,I,1000)
00300		CALL AIVECT(0,0)
00400		CALL AVECT(100,0)
00500		CALL AIVECT(1,0)
00600		CALL AVECT(101,0)
00700	3	CALL DPYOUT(1)
00800		TYPE 1,(I(K),K=1,8)
00900		ACCEPT 2,K,I(K)
01000		CALL ACCPOG(1)
01100		GO TO 3
01200	1	FORMAT(I/)
01300	2	FORMAT(2I)
01400		END